home *** CD-ROM | disk | FTP | other *** search
/ Cine Live 72 / Cine Live 72.iso / pc / Data / Interface / e6s.k < prev    next >
Encoding:
Text File  |  2003-09-04  |  7.4 KB  |  282 lines
  1. module oRoot1 is cBox
  2. with 
  3.     Flags is $00000152; 
  4.     release Editor:
  5.         IOWindow is {$00000191,$000000AD,$000001DA,$0000029A,$00000000,$00000000,$00000000,$00000000};
  6.         LayoutWindow is {$000000A1,$0000007B,$000002A0,$00000245,$00000000,$00000000,$00000064,$00000000};
  7.     end;
  8.     Name is "Root"; 
  9.     Enabled is false; 
  10.     
  11.     Width is 800; Height is 600; 
  12.     
  13.     Kind is DrawOpaque; 
  14.     Elements is [
  15.         oslide2,
  16.         oslide23,
  17.         oslide34,
  18.         oslide45
  19.     ];
  20.     Events is [
  21.         cOnscreenEvent
  22.         with Flags is $00000004; 
  23.             Commands is [
  24.                 cShowCommand
  25.                 with Flags is $00000004; Target is oslide2; end,
  26.                 cEnableCommand
  27.                 with Flags is $00000004; Target is oslide2; end,
  28.                 cFocusCommand
  29.                 with Target is oslide2; end,
  30.                 cRunCommand
  31.                 with Flags is $00000004; Target is oslide2; Rewind is true; end
  32.             ];
  33.         end
  34.     ];
  35. end;
  36.  
  37. object oslide2 is cImage
  38. with 
  39.     Flags is $00000010; 
  40.     Name is "slide"; 
  41.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  42.     
  43.     Width is 800; Height is 600; 
  44.     Duration is 2; Duration is 2; TimeScale is 1; 
  45.     URL is "../../Photos/Je%20reste/AFF%20Je%20reste.jpg"; 
  46.     
  47.     
  48.     Events is [
  49.         cKeyboardEvent
  50.         with Test is IsSpace; 
  51.             Commands is [
  52.                 cFocusCommand
  53.                 with Target is oTargetSelf; end,
  54.                 cRunCommand
  55.                 with Target is oTargetSelf; Mode is Toggle; end
  56.             ];
  57.         end,
  58.         cMouseUpEvent
  59.         with Flag is true; 
  60.             Commands is [
  61.                 cRunCommand
  62.                 with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  63.                 cEnableCommand
  64.                 with Target is oTargetSelf; Mode is Clear; end,
  65.                 cShowCommand
  66.                 with Target is oTargetSelf; Mode is Clear; end,
  67.                 cRunCommand
  68.                 with Target is oslide23; Mode is Clear; Rewind is true; end,
  69.                 cEnableCommand
  70.                 with Target is oslide23; Mode is Clear; end,
  71.                 cShowCommand
  72.                 with Target is oslide23; Mode is Clear; end,
  73.                 cBackCommand
  74.                 with end
  75.             ];
  76.         end,
  77.         cFinishedEvent
  78.         with 
  79.             Commands is [
  80.                 cShowCommand
  81.                 with Target is oslide2; Mode is Clear; end,
  82.                 cEnableCommand
  83.                 with Target is oslide2; Mode is Clear; end,
  84.                 cRunCommand
  85.                 with Target is oslide2; Mode is Clear; Rewind is true; end,
  86.                 cFocusCommand
  87.                 with Target is oslide23; end,
  88.                 cShowCommand
  89.                 with Target is oslide23; end,
  90.                 cEnableCommand
  91.                 with Target is oslide23; end,
  92.                 cRunCommand
  93.                 with Target is oslide23; Rewind is true; end
  94.             ];
  95.         end
  96.     ];
  97. end;
  98.  
  99. object oslide23 is cImage
  100. with 
  101.     Flags is $00000150; 
  102.     Name is "slide2"; 
  103.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  104.     
  105.     Width is 800; Height is 600; 
  106.     Duration is 2; Duration is 2; TimeScale is 1; 
  107.     URL is "../../Photos/Je%20reste/C%20Berling.jpg"; 
  108.     
  109.     
  110.     Events is [
  111.         cKeyboardEvent
  112.         with Flags is $00000004; Test is IsSpace; 
  113.             Commands is [
  114.                 cFocusCommand
  115.                 with Flags is $00000004; Target is oTargetSelf; end,
  116.                 cRunCommand
  117.                 with Flags is $00000004; Target is oTargetSelf; Mode is Toggle; end
  118.             ];
  119.         end,
  120.         cMouseUpEvent
  121.         with Flags is $00000004; Flag is true; 
  122.             Commands is [
  123.                 cEnableCommand
  124.                 with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
  125.                 cShowCommand
  126.                 with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
  127.                 cRunCommand
  128.                 with Flags is $00000004; Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  129.                 cEnableCommand
  130.                 with Flags is $00000004; Target is oslide34; Mode is Clear; end,
  131.                 cShowCommand
  132.                 with Flags is $00000004; Target is oslide34; Mode is Clear; end,
  133.                 cRunCommand
  134.                 with Flags is $00000004; Target is oslide34; Mode is Clear; Rewind is true; end,
  135.                 cBackCommand
  136.                 with Flags is $00000004; end
  137.             ];
  138.         end,
  139.         cFinishedEvent
  140.         with Flags is $00000004; 
  141.             Commands is [
  142.                 cShowCommand
  143.                 with Flags is $00000004; Target is oslide23; Mode is Clear; end,
  144.                 cEnableCommand
  145.                 with Flags is $00000004; Target is oslide23; Mode is Clear; end,
  146.                 cRunCommand
  147.                 with Flags is $00000004; Target is oslide23; Mode is Clear; Rewind is true; end,
  148.                 cFocusCommand
  149.                 with Flags is $00000004; Target is oslide34; end,
  150.                 cShowCommand
  151.                 with Flags is $00000004; Target is oslide34; end,
  152.                 cEnableCommand
  153.                 with Flags is $00000004; Target is oslide34; end,
  154.                 cRunCommand
  155.                 with Flags is $00000004; Target is oslide34; Rewind is true; end
  156.             ];
  157.         end
  158.     ];
  159. end;
  160.  
  161. object oslide34 is cImage
  162. with 
  163.     Name is "slide3"; 
  164.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  165.     
  166.     Width is 800; Height is 600; 
  167.     Duration is 2; Duration is 2; TimeScale is 1; 
  168.     URL is "../../Photos/Je%20reste/D%20Kurys.jpg"; 
  169.     
  170.     
  171.     Events is [
  172.         cKeyboardEvent
  173.         with Test is IsSpace; 
  174.             Commands is [
  175.                 cFocusCommand
  176.                 with Target is oTargetSelf; end,
  177.                 cRunCommand
  178.                 with Target is oTargetSelf; Mode is Toggle; end
  179.             ];
  180.         end,
  181.         cMouseUpEvent
  182.         with Flag is true; 
  183.             Commands is [
  184.                 cEnableCommand
  185.                 with Target is oTargetSelf; Mode is Clear; end,
  186.                 cShowCommand
  187.                 with Target is oTargetSelf; Mode is Clear; end,
  188.                 cRunCommand
  189.                 with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  190.                 cEnableCommand
  191.                 with Target is oslide45; Mode is Clear; end,
  192.                 cShowCommand
  193.                 with Target is oslide45; Mode is Clear; end,
  194.                 cRunCommand
  195.                 with Target is oslide45; Mode is Clear; Rewind is true; end,
  196.                 cBackCommand
  197.                 with end
  198.             ];
  199.         end,
  200.         cFinishedEvent
  201.         with 
  202.             Commands is [
  203.                 cShowCommand
  204.                 with Target is oslide34; Mode is Clear; end,
  205.                 cEnableCommand
  206.                 with Target is oslide34; Mode is Clear; end,
  207.                 cRunCommand
  208.                 with Target is oslide34; Mode is Clear; Rewind is true; end,
  209.                 cFocusCommand
  210.                 with Target is oslide45; end,
  211.                 cShowCommand
  212.                 with Target is oslide45; end,
  213.                 cEnableCommand
  214.                 with Target is oslide45; end,
  215.                 cRunCommand
  216.                 with Target is oslide45; Rewind is true; end
  217.             ];
  218.         end
  219.     ];
  220. end;
  221.  
  222. object oslide45 is cImage
  223. with 
  224.     Flags is $00000150; 
  225.     Name is "slide4"; 
  226.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  227.     
  228.     Width is 800; Height is 600; 
  229.     Duration is 2; Duration is 2; TimeScale is 1; 
  230.     URL is "../../Photos/Je%20reste/S%20Marceau.jpg"; 
  231.     
  232.     
  233.     Events is [
  234.         cKeyboardEvent
  235.         with Flags is $00000004; Test is IsSpace; 
  236.             Commands is [
  237.                 cFocusCommand
  238.                 with Flags is $00000004; Target is oTargetSelf; end,
  239.                 cRunCommand
  240.                 with Flags is $00000004; Target is oTargetSelf; Mode is Toggle; end
  241.             ];
  242.         end,
  243.         cMouseUpEvent
  244.         with Flags is $00000004; Flag is true; 
  245.             Commands is [
  246.                 cEnableCommand
  247.                 with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
  248.                 cShowCommand
  249.                 with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
  250.                 cRunCommand
  251.                 with Flags is $00000004; Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  252.                 cEnableCommand
  253.                 with Flags is $00000004; Target is oslide2; Mode is Clear; end,
  254.                 cShowCommand
  255.                 with Flags is $00000004; Target is oslide2; Mode is Clear; end,
  256.                 cRunCommand
  257.                 with Flags is $00000004; Target is oslide2; Mode is Clear; Rewind is true; end,
  258.                 cBackCommand
  259.                 with Flags is $00000004; end
  260.             ];
  261.         end,
  262.         cFinishedEvent
  263.         with Flags is $00000004; 
  264.             Commands is [
  265.                 cShowCommand
  266.                 with Flags is $00000004; Target is oslide45; Mode is Clear; end,
  267.                 cEnableCommand
  268.                 with Flags is $00000004; Target is oslide45; Mode is Clear; end,
  269.                 cRunCommand
  270.                 with Flags is $00000004; Target is oslide45; Mode is Clear; Rewind is true; end,
  271.                 cFocusCommand
  272.                 with Flags is $00000004; Target is oslide2; end,
  273.                 cShowCommand
  274.                 with Flags is $00000004; Target is oslide2; end,
  275.                 cEnableCommand
  276.                 with Flags is $00000004; Target is oslide2; end,
  277.                 cRunCommand
  278.                 with Flags is $00000004; Target is oslide2; Rewind is true; end
  279.             ];
  280.         end
  281.     ];
  282. end;